home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / prolog / brklyprl.lha / Emulator / Tests / Passed / test21.pl < prev    next >
Encoding:
Text File  |  1989-04-14  |  310 b   |  14 lines
  1.  
  2. /* Copyright (C) 1988, 1989 Herve' Touati, Aquarius Project, UC Berkeley */
  3.  
  4. main :-
  5.     write(['ok?','ok?','ok?','ok?','ok?','ok?','ok?','ok?','ok?','ok?']),
  6.     nl,
  7.     L = [X0,X1,X2,X3,X4,X5,X6,X7,X8,X9],
  8.     X9 = X8, X9 = X7, X9 = X6, X9 = X5, X9 = X4,
  9.     X9 = X3, X9 = X2, X9 = X1, X9 = X0, X9 = ok,
  10.     write(L),
  11.     nl.
  12.  
  13.  
  14.